home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / turbo_part1.lha / modula / amiga / Exec.mod < prev    next >
Encoding:
Modula Implementation  |  1995-01-24  |  391 b   |  17 lines
  1. IMPLEMENTATION MODULE Exec ;
  2.  
  3. FROM SYSTEM IMPORT ADR ;
  4.  
  5. PROCEDURE IsListEmpty( x : ListPtr ) : BOOLEAN ;
  6. BEGIN RETURN x^.lh_TailPred = NodePtr( x ) ;
  7. END IsListEmpty ;
  8.  
  9. PROCEDURE IsMsgPortEmpty( x : MsgPortPtr ) : BOOLEAN ;
  10. BEGIN RETURN x^.mp_MsgList.lh_TailPred = NodePtr( ADR(x^.mp_MsgList)) ;
  11. END IsMsgPortEmpty ;
  12.  
  13. (*VAR sysbase[4] : ExecBasePtr ;
  14.  
  15. BEGIN SysBase := sysbase ;*)
  16. END Exec.
  17.